Summit/Summit Recordable CD-ROM.ISO/screen/manidx.spr

Text File | 1994-08-12 | 9.2 KB | 292 lines

*       *********************************************************
*       *
*       * 08/12/94             MANIDX.SPR                12:52:04
*       *
*       *********************************************************
*       *
*       * Duncan Halstead
*       *
*       * Copyright (c) 1994 CD-ROM, Inc.
*       * Address
*       * City,     Zip
*       *
*       * Description:
*       * This program was automatically generated by GENSCRN.
*       *
*       *********************************************************


#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"
    SET TALK OFF
    m.talkstat = "ON"
ELSE
    m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")
SET READBORDER ON

m.currarea = SELECT()


*       *********************************************************
*       *
*       *               Windows Window definitions
*       *
*       *********************************************************
*

MODIFY WINDOW SCREEN ;
    AT 0.000, 0.000 ;
    SIZE 34.769,126.600 ;
    TITLE "Manufacturers Index" ;
    FONT "MS Sans Serif", 8 ;
    FLOAT ;
    CLOSE ;
    MINIMIZE ;
    FILL FILE LOCFILE("BMP\ROCKFACE.BMP","BMP|ICO|PCT|ICN", ;
        "Where is rockface?")
CLEAR

*       *********************************************************
*       *
*       *          MANIDX/Windows Setup Code - SECTION 2
*       *
*       *********************************************************
*

#REGION 1
do summit.mpr
SET PATH TO \data
SET STATUS BAR OFF
SET BELL OFF
RDDONE = 1
Exact = 1
use disclaim
GOTO 3

*       *********************************************************
*       *
*       *              MANIDX/Windows Screen Layout
*       *
*       *********************************************************
*

#REGION 1
@ 2.769,33.000 TO 22.846,93.600 ;
    PEN 4, 8 ;
    COLOR RGB(0,255,255,,,,)
@ 3.077,34.000 EDIT Disclaim.text ;
    SIZE 15.813,42.000,0.000 ;
    DEFAULT " " ;
    FONT "MS Sans Serif", 10 ;
    TAB ;
    SCROLL
@ 27.692,24.000 SAY "Goto Page:" ;
    FONT "MS Sans Serif", 12 ;
    STYLE "BT" ;
    COLOR RGB(0,255,255,,,,)
@ 28.000,46.200 GET M.Exact ;
    SPINNER 1.000, 1, 208 ;
    PICTURE "@KB" ;
    SIZE 1.000, 4.429 ;
    DEFAULT 1.000 ;
    FONT "MS Sans Serif", 10 ;
    COLOR ,RGB(0,0,0,255,255,255)
@ 27.692,59.400 GET M.Exact2 ;
    PICTURE "@*HN \<Search" ;
    SIZE 1.923,12.167,0.667 ;
    DEFAULT 1 ;
    FONT "MS Sans Serif", 8 ;
    STYLE "B" ;
    VALID _qsi0rkxdm()
@ 27.692,77.200 GET M.Exact3 ;
    PICTURE "@*HN \<Return to Main" ;
    SIZE 1.923,21.000,0.667 ;
    DEFAULT 1 ;
    FONT "MS Sans Serif", 8 ;
    STYLE "B" ;
    VALID _qsi0rkxm3()



READ CYCLE ;
    WHEN _qsi0rkxve() ;
    ACTIVATE _qsi0rkxvj() ;
    DEACTIVATE .T.

MODIFY WINDOW SCREEN
SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

IF m.talkstat = "ON"
    SET TALK ON
ENDIF
IF m.compstat = "ON"
    SET COMPATIBLE ON
ENDIF



*       *********************************************************
*       *
*       *   MANIDX/Windows Supporting Procedures and Functions
*       *
*       *********************************************************
*

#REGION 1
PROCEDURE next
IF RDLEVEL() = 1
    IF M.Exact = 208
        M.Exact = 1
    ELSE
        M.Exact = M.Exact + 1
    ENDIF
    SHOW GET EXACT
ENDIF
IF RDDONE = 50
    RDDONE = RDDONE + 1
    M.Exact = M.Exact + 1
    SHOW GET EXACT LEVEL 1
    CLEAR READ
    RELEASE WINDOW
    IF RDDONE != 4
        do screen.exe with (ALLTRIM(STR(Exact)) + '.spr')
    ENDIF
ENDIF
RETURN

PROCEDURE back
IF RDLEVEL() = 1
    IF M.Exact = 1
        M.Exact = 208
    ELSE
        M.Exact = M.Exact - 1
    ENDIF
    SHOW GET EXACT
ENDIF
IF RDDONE = 50
    RDDONE = RDDONE + 1
    M.Exact = M.Exact - 1
    SHOW GET EXACT LEVEL 1
    CLEAR READ
    RELEASE WINDOW
    IF RDDONE != 4
        DO screen.exe with (ALLTRIM(STR(Exact)) + '.spr')
    ENDIF
ENDIF
RETURN

PROCEDURE rdsay
Level = RDLEVEL()
ACTIVATE SCREEN
=SYS(2017)
? LEVEL
RETURN

ON KEY LABEL PGUP
ON KEY LABEL PGDN

*       *********************************************************
*       *
*       * _QSI0RKXDM           M.Exact2 VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Windows
*       * From Screen:         MANIDX,     Record Number:    6
*       * Variable:            M.Exact2
*       * Called By:           VALID Clause
*       * Object Type:         Push Button
*       * Snippet Number:      1
*       *
*       *********************************************************
*
FUNCTION _qsi0rkxdm     &&  M.Exact2 VALID
#REGION 1
IF M.EXACT <= 0 OR M.EXACT >=209
    DO ERROR.SPR
ELSE
    DO screen.exe with (ALLTRIM(STR(Exact)) + '.spr')
ENDIF

*       *********************************************************
*       *
*       * _QSI0RKXM3           M.Exact3 VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Windows
*       * From Screen:         MANIDX,     Record Number:    7
*       * Variable:            M.Exact3
*       * Called By:           VALID Clause
*       * Object Type:         Push Button
*       * Snippet Number:      2
*       *
*       *********************************************************
*
FUNCTION _qsi0rkxm3     &&  M.Exact3 VALID
#REGION 1
ON KEY LABEL PGUP
ON KEY LABEL PGDN
quit


*       *********************************************************
*       *
*       * _QSI0RKXVE           Read Level When
*       *
*       * Function Origin:
*       *
*       *
*       * From Platform:       Windows
*       * From Screen:         MANIDX
*       * Called By:           READ Statement
*       * Snippet Number:      3
*       *
*       *********************************************************
*
FUNCTION _qsi0rkxve     && Read Level When
*
* When Code from screen: MANIDX
*
#REGION 1
ON KEY LABEL PGUP DO next
ON KEY LABEL PGDN DO back
*ON KEY LABEL F5 DO rdsay
SHOW GET Exact

*       *********************************************************
*       *
*       * _QSI0RKXVJ           Read Level Activate
*       *
*       * Function Origin:
*       *
*       *
*       * From Platform:       Windows
*       * From Screen:         MANIDX
*       * Called By:           READ Statement
*       * Snippet Number:      4
*       *
*       *********************************************************
*
FUNCTION _qsi0rkxvj     && Read Level Activate
*
* Activate Code from screen: MANIDX
*
#REGION 1
IF RDDONE = 4
    DO screen.exe with (ALLTRIM(STR(Exact)) + '.spr')
ENDIF
SHOW GET EXACT
RDDONE = 1